﻿Partial Public Class Window3


    Private Sub Window3_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        Try
            Dim feeduri As String = "http://onflycalculator.deepskylabs.com/news.xml"
            'If My.Computer.Network.Ping(feeduri) Then
            Dim feedList As New Cintie.Web.FeedList(feeduri)
            For Each item In feedList
                Dim _i As New FeedItem(item)
                ListBox1.Items.Add(_i)
            Next
            'End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub ListBox1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.Windows.Controls.SelectionChangedEventArgs) Handles ListBox1.SelectionChanged
        Try
            Dim feed As Cintie.Web.Feed = ListBox1.SelectedItem.BaseFeed
            System.Diagnostics.Process.Start(feed.RedirectTo)
        Catch ex As Exception
        End Try
    End Sub
End Class
